# using an array ref instead
$rec = $sth_main->fetchrow_arrayref('NAME_lc')
$sth_imei->execute( $rec->[1], $rec->[0] ) 
    or die $sth_imei->errstr;

# using a hash ref
$rec = $sth_main->fetchrow_hashref('NAME_lc');
$sth_imei->execute( $rec->{telephony_id}, $rec->{account_no})
    or die $sth_imei->errstr;