- my $d = cltounix($_[1], sprintf("%02d18Z", $_[2]));
- my $sfi = unpad($_[3]);
- my $k = unpad($_[4]);
- my $i = unpad($_[5]);
- my ($r) = $_[6] =~ /R=(\d+)/;
+ my $d = cltounix($pc->[1], sprintf("%02d18Z", $pc->[2]));
+ my $sfi = unpad($pc->[3]);
+ my $k = unpad($pc->[4]);
+ my $i = unpad($pc->[5]);
+ my ($r) = $pc->[6] =~ /R=(\d+)/;