if ($pvt_name =~m/^([a-z].*)([0-9]p.*)/) {
    my $process = $1;
    my $process_two = substr($process, 0, 2); #got ff from ffgp

    my $vol_temp = $2;
    my @vol_temp = split ('v',$vol_temp);