#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my %hash = ( 'CA12DE' => 1 );

my  $line = 'Box of Joe     CA12DE    12345';
my @data = unpack 'A15A10A9', $line;
print Dumper(\@data);

my $searchkey = $data[1];
if (exists($hash{$searchkey})) {
  print qq(searchkey "$searchkey" exists in the hash...\n);
}