#!/usr/bin/perl

use Data::Dumper;

my $num = 32;
my @b = (0..$num-1);


print( Dumper( @b ) );