perl-find clearcase old view list

[gokulskm]

hai,
i'm working clearcase unix side, here i try to find the old view list,pls help me for complete this program:

chomp(@view="cleartool lsview -s | grep $name");
system(@view);
foreach $viewtag(@view)
{
printf("Processing $viewtag: ");
chomp(@properties ="cleartool lsview -properties -full $viewtag");
system(@properties);
foreach $property (@properties)
{
$accessed_line = $property if ( $property =~ /^Last accessed / );
$owner_line = $property if ( $property =~ /^Owner: / );
}