my @records;
my $count=0;
...get the records from xml nodes 

foreach node ... in nodelist{

$count ++;
#if ($count <= 6 ) {
 push @records, {
     line => $count,
     appname => $appname
     visible => "Yes",
}
#else
#{
#push @records, {
#     line => $count,
#     appname => "",
#     visible => "No",
#}
}
}
print Dumper \@records;