my @numbers = (1..6);
foreach my $number (@numbers) {
    print $number;
}