my ( @records, @orders, %seen );

##</code><code>##

RECORD: for my $record (@records) { ...

##</code><code>##

if (/Order ID:(\S+)/) {
    next RECORD if $seen{$1};
    $seen{$1}++;
    $hash{orderID} = $1;
}

##</code><code>##

writeToSpreadSheet( $row,  \%hash );

##</code><code>##

sub writeToSpreadSheet {
	my ($row, $hashReference) = @_;
...