$pdl=$pdl->rotate(1); 
$pdl(0,).=$new_data # your vector.