foreach my $pin ( keys %{$pin_hashref}){