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