use Data::Dumper; my $data = <