You are asking a question about a subroutine "check_dup_rec", and have not shows us what it contains.

Without that , we will be unable to assist.

Please post code, using <code/> tags, as AnomalousMonk has suggested.

Hello archieg, and welcome to the Monastery!

Whatever sub check_dup_rec does, what is the point of calling it twice with the same arguments? If the first call returns a true value, the user is given the choice of either aborting the script or continuing. But neither of the two subroutine arguments is changed, so why call the same subroutine again immediately afterwards?

The second argument also looks suspicious to me: "$actv_id,$iteration_id,$wave_id". This creates a single string from the contents of 3 variables, separated by commas. I suppose that may be what you want, but it would seem more natural to pass those variables in as 3 separate arguments:

if (check_dup_rec("$APPHOME/DATA/lookup/lookup_file.txt", $actv_id, $i
+teration_id, $wave_id))
[download]

Also: do you use the contents of $key after the if block ends? If not, why chomp it? For that matter, why assign it at all?

if (...)
{
    print "\nTo ABORT press CTRL+C or Press ENTER key to Continue...";
    <STDIN>;
}
[download]

P.S. Your script is running under use strict; use warnings;, isn’t it? ;-)

Hope that helps,

Hi archieg. Welcome to the Monastery.

Please Update your original post to use  <c> ... </c> or  <code> ... </code> tags around code, data and input/output. Please see Markup in the Monastery and Writeup Formatting Tips. Please see How do I change/delete my post?.

"It doesn't work" means nothing. Please provide some sort of comprehensible example of your problem. Please see Short, Self Contained, Correct (Compilable), Example.