sub extract {
	$_ = shift;
	my @extract_i = (split(/:/))[1,2];
	push @extract_i, $_[0];
	my $i_pstn = join('-', @extract_i);
}