use Data::Dumper;

# ...

print Data::Dumper->Dumper(\@record);