for my $entry(@data){
  print sprintf($format . "\n",@$entry);
}