for (my $i=0; $i <= $#{@alarms}; $i++) {
    print $alarms[$i];
}

##</code><code>##

for (my $i=0; $i <= $#alarms; $i++) {
    print $alarms[$i];
}