my $a = "Pairwise key expansion"; # application-specific data
my $b = $amac.$smac.$snonce.$anonce;
my $r = "";
    for(my $i=0;$i<4;$i++){
        my $data = $a."\x00".$b.$i;