$ cat ps_info.pl
#!/usr/bin/perl
@a = ( "one", "two", "three", "four", "five" );
for (1..50)
{
    print $0 . "," .$a[$c%5]."\n";
    $0 = $a[$c%5];
    $c++;
    sleep 2;
}
exit;