use YAML qw<Dump>;
print Dump \@data;