73 sub extract {
     74    $_ = shift;
     75    my @extract_i = split(/:/)[1,2];
     76    push @extract_i, $_[1];
     77    my $i_pstn = join('-', @extract_i);
     78 }