sub loadFileToHashRef
{
  my $xmlRef      =       $xml->XMLin($_[0]);
  
  # Clean our hash
  for my $textRef ( @{$xmlRef->{sms}} )
    {   
      %{$textRef} = map { $_ => $textRef->{$_} } @keysToKeep;
    }   
  
  # Return our hash ref
  return $xmlRef;
}