in reply to Simple Table structure to file

Since we all appear to be giving you different pieces of a solution:
#!/usr/bin/perl use warnings; use strict; use Data::Dumper; my %data; while (my $line = <DATA>) { chomp $line; [parse the input] [assign to your hash] } print Dumper \%data; # check to see if your code set up the HoA corre +ctly __DATA__ 01;22411384 01;18337723 02;38381289 02;38938222 10;13293383