#!/usr/bin/perl -w
use strict;

my ($sec, $min, $hour) = (localtime)[0..2];
print "$hour:$min:$sec\n";

($sec, $min, $hour) = localtime[0..2];
print "$hour:$min:$sec\n";

__END__
22:9:50
9:16:24