print Dumper hstat($0);

# Namen statt Index
sub hstat{
    my $file = shift;
    my @names = qw(dev ino mode nlink uid gid redv size atime mtime ctime blksize blocks);
    my %h = ();
    @h{@names} = stat $file;
    return \%h;
}