#!/usr/bin/perl

use strict;
use warnings;

my @t = localtime(time);

#sollte Stunden, Minuten, Sekunden ausgeben
print @t[2-0], "\n"; 
print @t[2..0], "\n"; 
print "-------------------\n";
print @t[0-2], "\n"; 
print @t[0..2], "\n";