$clocks{$pin_name}{'period'} = $Worksheet->{Cells}[$row][$clock_col]->Value;
#snip

foreach my $key (sort keys %clocks){
  print_clock_assertions($clocks{$key},$key);
}

sub print_clock_assertions {
  my($hashref)=$_[0];
  my($clock_name)=$_[1];
  if($hashref->{'virtual'} eq "VIR") {

etc...

##</code><code>##

  if ($Worksheet->{Cells}[$row][$jit_ear_rise_col]){
	my @jit_values;
	foreach my $col ($jit_ear_rise_col .. $jit_late_fall_col){
	  push @jit_values,$Worksheet->{Cells}[$row][$col]->Value;
	  }
	$clocks{$pin_name}{'jit'} = @jit_values;
	}

my @jitter_values = $hashref->{'jit'} ;
foreach (@jitter_values){print "$_\n";}