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