for my $data (@data){
 $p{data} = $data;
 ...
}