Select Code to Download

@data = ( [1, 2, 3, 4, 5],
          ['one', 'two', 'three', 'four', 'five'],
          ['ein', 'zwei', 'drei', 'veir', 'funf'],
          ['hana', 'dool', 'set', 'net', 'dasut'],
          ['yi', 'er', 'san', 'si', 'wu'],
         );

1   one    ein     hana   yi
2   two    zwei    dool   er 
3   three  drei    set    san 
4   four   veir    net    si 
5   five   funf    dasut  wu

use strict;
use warnings;
...
  }
  print $/
}

1 one ein hana yi
2 two zwei dool er 
3 three drei set san 
4 four veir net si 
5 five funf dasut wu

#!/usr/bin/perl -wT
use strict;
...
</table>
</body>
</html>