my %hash1;
foreach $fileLine(<ZFFILE>)
{
if($fileLine =~ /^TF Bus=(\w+)\sTFId=(\d+)\sSPort=(\d+)\sDIP=(\d+.\d+.\d+.\d+)\sDPort=(\d+)\sTP=(\w+)\s;\s(\w+)/)
{
$hash1{k} = {a => $1, b => $2, c => $3}
}
}