use warnings;
my @data;
for( 1..3 ) {
    $data[ ++ $#data ] = $_;
}
for (@data) {
    print $_,"\n";
}
__END__
1
2
3