my @all; # here is all the data will be

foreach my $xy (@all)
 {
    
    
    }