$ stat -c "%U" sources

or

$ perl -e'print +(getpwuid((stat)[ 4]))[0],$/ for @ARGV'



##</code><code>##

$ perl -e'print +(stat)[4],$/ for @ARGV' sources

or 

$ stat -c "%u" sources