And slightly weirder:

sub all_same_file {
    join(" ",map{(stat)[0,1]}@_) =~ /^(\d+ \d+) (\1 ?){$#_}$/;
}
[download]