#!/usr/bin/perl -w
use strict;
my %kids=map { split } <DATA>;
print "Father of $_ is $kids{$_}\n" for @ARGV;

__DATA__
1045316394 1045316144
1045316407 1045316394
1045316419 1045316407
1045316438 1045316419
1045316469 1045316394
1045316492 1045316407
1045316505 1045316492