in reply to Re^2: list comprehension
in thread list comprehension

Or even (TMTOWTDI):

my ( $y, $m, $d ) = unpack 'A4xA2xA2', $str;