$ stat -c "%U" sources

or

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