my $data2="/home/users/some_path/edit/data2.txt"; my $data1 ="/home/users/some_path/edit/data1.txt"; my $data3 ="/home/users/some_path/edit/data3.txt"; my %dbs = ( Data1 => $data1, Data2 => $data2, Data3 => $data3, );