for my $alarm (@alarms) {
    print $alarm;
}

##</code><code>##

print $_ for @alarms;