($a, $b)= @array[1,3];

my ($minutes, $hours) = (localtime())[2,3]