$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_ref, $exper_ref) = @_;
  print " ($one)($two)(@$source_ref)(@$exper_ref) \n";
  #....
}