sub some_subroutine 
{
        my ($string) = @_;
	my ($output1, $output2, $output3);

	if (  $string eq $some_other_string_a )
	{
           $output1 = 1350;
           $output2 = 9234;
           $output3 = 8889;
	}
	if ( $string eq $some_other_string_b )
	{
           $output1 = 1345;
           $output2 = 2234;
           $output3 = 3689;
	}
	if ( $string eq $some_other_string_c )
	{
           $output1 = 2256;
           $output2 = 3370;
           $output3 = 1340;
	}
	@retval = ($output1,$output2,$output3);
}