foreach my $line (@userfiles) {
    my $size = (stat("$user{'site_id'}/$line"))[7];
    my $readable;
    if($size >= 1024) {
       $readable = sprintf("%2.2fKB", $size / 1024);
    } else {
       $readable = $size . "Bytes";
    }
    print "$line size is: $readable", $/;
}