Select Code to Download

#!/usr/bin/perl -w
use strict;
...

print "$hash{2}{LOCATIONA} = location a\n";
print "$hash{2}{LOCATIONB} = location b\n";

Use of uninitialized value in concatenation (.) or string at test2 lin
+e 7 (#1)
    (W uninitialized) An undefined value was used as if it were alread
+y
...

//my_file.txt = location a
//my_file.txt = location b