$one = "YAR033W";
$two = "YAR033W";
@source = ("ITOCORE");
@exper = ("n/a");
print " ($one)($two)(@source)(@exper) \n";
parsed_pair($one, $two, @source, @exper);
...

sub parsed_pair
{
my ($one, $two, @source, @exper) = @_;
print " ($one)($two)(@source)(@exper) \n";

....
}