Hi Perl Monks, 

 I have the below commands in my perl script, which is actually a 
 repetation of single statement but outputting to different logfiles. 

 `echo "$swlist -l depot @ $depot_locn | $grep $rel_string | $grep $i | $grep AR" >> $log_std_depot`;

`$swlist -l depot @ $depot_locn | $grep $rel_string | $grep $i | $grep AR >> $log_std_depot`;

`$swlist -l depot @ $depot_locn | $grep $rel_string | $grep $i | $grep AR >> $temp_log`;

Is there any way I can make my code more effective in perl. Please advise.