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