@username = map scalar getpwuid($_), @uid;

##</code><code>##

@year = map (localtime $_)[5], @timestamp;
# "Not enough arguments for map at line XY"

##</code><code>##

print do { (localtime $timestamp)[5] };

##</code><code>##

print +(localtime $timestamp)[5];