$host=`hostname`;
$filesystem = ARGV[0];
my %filesystems = (

                        hosta => (desc => 'x', filesystems => (qq|/data/file/a| =>0, qq|/data/file/b| =>0)),

                        tx05 => (desc => 'r',filesystems => (qq|/data/file/c| =>0, qq|no filesystemB for 2nd host | => 0)));

if ( ! exists $filesystems{$host}{filesystems}{$filesystem} ) {
                        print "error\n";}
else {print "Found filesystem $filesystem on host $host\n". $filesystems{$host}{descr}."\n";}