Select Code to Download

use strict;

...

print "$tables{1}->{name}`s data is @{$tables{1}->{data}}!";
#prints "john`s data is any data goes here!"

use strict;

...

print "john`s data is @johnData!";
#prints "john`s data is any data goes here!"