$ perl -E "@now = localtime(); for (@now) { say; }" 21 20 10 15 5 111 3 165 1